// #########################################################################################
// Projeto:
// Modulo :
// Fonte  : FSW07P06
// ---------+------------------------------------------------------------------------------
// Data     | TSC748 DELSON JUNIOR ANTUNES	| Deletar todos os registro da tabela 
// ---------+-------------------------------------------------------------------------------
// 25/05/13 | TOTVS | Developer Studio  	| 
// ---------+-------------------+-----------------------------------------------------------


#Include 'Protheus.ch'
#INCLUDE 'TOPCONN.CH'



User Function FSW07P06(xtabela,nFilial)


if xtabela == "SR8"                        	           
	cQrDel := " delete  from  "+ RetSqlName(xtabela)+" where R8_FILIAL = '"+nFilial+"'"	
ELSEIF xtabela == "SRF"  
	cQrDel := " delete  from  "+ RetSqlName(xtabela)+" where RF_FILIAL = '"+nFilial+"'"	
ENDIF
	
	TcSqlExec(cQrDel) 
		
 RETURN
